home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / ARexx.lha / ARexx / DupeCheck.dopus5 < prev    next >
Text File  |  1996-07-19  |  1KB  |  56 lines
  1. /*
  2.   $VER: DupeCheck.dopus5 1.2 (4.7.96)
  3.   Written by Edmund Vermeulen (edmundv@grafix.xs4all.nl).
  4.  
  5.   ARexx script for Directory Opus 5 to select all entries in the source
  6.   lister that already exist in the destination lister (a.k.a. dupes).
  7.  
  8.   Function : ARexx      DOpus5:ARexx/DupeCheck.dopus5 {Qp}
  9. */
  10.  
  11. parse arg portname
  12. if portname='' then
  13.    portname='DOPUS.1'
  14. address value portname
  15.  
  16. options results
  17. options failat 21
  18.  
  19. lister query source
  20. if rc>0 then do
  21.    dopus request '"No source selected." OK'
  22.    exit
  23.    end
  24. parse var result srchandle .
  25.  
  26. lister query dest
  27. if rc>0 then do
  28.    dopus request '"No destination selected." OK'
  29.    exit
  30.    end
  31. parse var result desthandle .
  32.  
  33. lister set srchandle busy on
  34. lister set desthandle busy on
  35.  
  36. lister query srchandle numselentries
  37. selected=result
  38.  
  39. lister query desthandle entries stem entry.
  40. do i=0 to entry.count-1
  41.    lister select srchandle '"'entry.i'"' on
  42.    end
  43. lister refresh srchandle
  44.  
  45. lister query srchandle numselentries
  46. selected=result-selected
  47.  
  48. lister set srchandle busy off
  49. lister set desthandle busy off
  50.  
  51. if selected=1 then
  52.    word='entry'
  53. else
  54.    word='entries'
  55. dopus request '"'selected 'duplicate' word 'selected." OK'
  56.